﻿Option Explicit On
Option Strict On

Partial Class private_secure_members_pages_Recipients
    Inherits System.Web.UI.Page
    Dim u As MembershipUser
    Dim personId As Int32
    Dim delid As Integer
    Dim entityid As Integer

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        u = Membership.GetUser(HttpContext.Current.User.Identity.Name)
        Dim getpersonid As New GetPersonIdFromUserId()

        Try
            personId = getpersonid.GetPersonId(CType(u.ProviderUserKey, Guid))
            Dim entityidTA As New LogginsLogDSTableAdapters.usp_GetEntityListFull_ByPersonIdTableAdapter()
            Dim entityidDT As LogginsLogDS.usp_GetEntityListFull_ByPersonIdDataTable
            entityidDT = entityidTA.GetData(personId)
            'For Each entityidRow As LogginsLogDS.usp_GetEntityListFull_ByPersonIdRow In entityidDT
            '    index = entityidRow.ID
            'Next
            'Dim dateenteredtextbox As TextBox = CType(Me.FormView1.FindControl("DateCreatedTextBox"), TextBox)
            'dateenteredtextbox.Text = CStr(DateTime.Now)
        Catch ex As Exception
            Throw ex
        End Try

    End Sub
End Class
